home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_B.d64 / film irq.src (.txt) next >
Commodore BASIC  |  2022-10-26  |  1KB  |  79 lines
  1. 100 getbyte  = $b7f1
  2. 110 errorout = $a437
  3. 120 sprite   = $0002
  4. 130 speed    = $00fa
  5. 140 count    = $00fb
  6. 150 filmseq  = $00fc
  7. 160 v        = $d000
  8. 170 vram     = $0288
  9. 180 clrscr   = $e544
  10. 190 irqvect  = $0314
  11. 200 normirq  = $ea31
  12. 210 cia2     = $dd00
  13. 220 endirq   = $febc
  14. 230 *=$c738
  15. 240 jsr getbyte
  16. 250 cpx #8
  17. 260 bcc sprnrok
  18. 270 ldx #$e
  19. 280 jmp errorout
  20. 290 sprnrok *=*
  21. 300 stx sprite
  22. 310 jsr getbyte
  23. 320 stx speed
  24. 330 stx count
  25. 340 jsr filmbeg
  26. 350 lda #1
  27. 360 sta cia2
  28. 370 lda #$8c
  29. 380 sta vram
  30. 390 lda #$34
  31. 400 sta v+$18
  32. 410 jsr clrscr
  33. 420 sei
  34. 430 lda v+$11
  35. 440 and #$7f
  36. 450 sta v+$11
  37. 460 lda #0
  38. 470 sta v+$12
  39. 480 lda #<filmirq
  40. 490 sta irqvect
  41. 500 lda #>filmirq
  42. 510 sta irqvect+1
  43. 520 lda #$81
  44. 530 sta v+$1a
  45. 540 cli
  46. 550 rts
  47. 560 filmirq *=*
  48. 570 lda v+$19
  49. 580 sta v+$19
  50. 590 bmi film
  51. 600 jmp normirq
  52. 610 film *=*
  53. 620 dec count
  54. 630 bne endfilm
  55. 640 lda speed
  56. 650 sta count
  57. 660 ldy #0
  58. 670 getseq *=*
  59. 680 lda (filmseq),y
  60. 690 bpl noeoflm
  61. 700 jsr filmbeg
  62. 710 bne getseq
  63. 720 noeoflm *=*
  64. 730 ldx sprite
  65. 740 ora #$80
  66. 750 adr = *+1
  67. 760 sta $8ff8,x
  68. 770 inc filmseq
  69. 780 bne endfilm
  70. 790 inc filmseq+1
  71. 800 endfilm *=*
  72. 810 jmp endirq
  73. 820 filmbeg *=*
  74. 830 lda #0
  75. 840 sta filmseq
  76. 850 lda #$90
  77. 860 sta filmseq+1
  78. 870 rts
  79.